home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / STRATEGY.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  897b  |  35 lines

  1. ;******************************************************************
  2. ;*                          STRATEGY.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.  EXTRN DOSError:Word;
  11. .CODE
  12.  Public GetAllocationStrategy,SetAllocationStrategy
  13.  SetAllocationStrategy Proc Far Strategy:Word
  14.     MOV AX,5801H
  15.     Mov BX,Strategy
  16.     INT 21H
  17.     JC @@Error
  18.     SUB AX,AX
  19. @@Error:
  20.      Mov DosError,AX
  21.      RET
  22.   endp
  23.  GetAllocationStrategy Proc Far
  24.     MOV AX,5800H
  25.     Int 21H
  26.     JC @@Error
  27.     sub DX,DX
  28.     Mov DosError,DX
  29.     Ret
  30. @@Error:
  31.     Mov DosError,AX
  32.     MOV AX,-1
  33.     RET
  34. endp
  35. end